﻿Public Class Crypter

#Region ">> BASE64"
    Public Shared Function Encode(ByVal str As String) As String
        Dim byt As Byte() = System.Text.Encoding.UTF8.GetBytes(str)
        Return Convert.ToBase64String(byt)
    End Function

    Public Shared Function Decode(ByVal str As String) As String
        Dim b As Byte() = Convert.FromBase64String(str)
        Return System.Text.Encoding.UTF8.GetString(b)
    End Function
#End Region

End Class

